home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
DOS
/
TELECOMM
/
RBCOMM34
/
AVATOPUS.MAC
< prev
next >
Wrap
Text File
|
1993-01-03
|
2KB
|
60 lines
; RBcomm macro file for Opus systems with OpXpress
;
F2 MULTI ; from main bulletins screen
TEXT "x\r"
WAITFOR 20 "ress"
TEXT " "
WAITFOR 15 "C, D"
PAUSE 4
PUSHKEY F3 ; now that we're at the OpX prompt, run rest
END
F3 MULTI ; from OpX prompt
CHDIR "d:/opx" ; make sure we're in the right directory
TEXT "d\r" ; tell OpX we want to download
WAITFOR 40 ">" ; wait for action prompt
WAITFOR 3 ":"
PAUSE 4
TEXT "a\r" ; we want to download all messages
WAITFOR 30 "ountdown" ; wait for transfer start prompt
PAUSE 3
TEXT "\r" ; yes, we want to start downloading
END
F9 TEXT "Your Name\r"
F10 PUSHKEY Auto ; F10 is same as automatic login
; and now, our automatic logon routine
AUTO MULTI
TEXT "\r" ; get the BBS's attention
PAUSE 9
TEXT "\r"
PAUSE 9
UNTIL SUCCESS
{
TEXT "\r"
WAITFOR 1 " "
}
WAITFOR 5 "ress" ; when mailer asks to press Escape, do so
TEXT "\e\e"
WAITFOR 20 "ame:" ; wait for login prompt
TEXT "Your Name;y\r" ; and send name
WAITFOR 10 "ord:" ; wait for password prompt
PASSWORD ; send the password defined in the directory
TEXT "\r" ; finish up password with a Return
WHEN 1 "│" ; skip graphics sign-on screen
TEXT "^C"
WHEN 1 "ENTER" ; press Enter when asked
TEXT "\r"
WHEN 1 "Bull" ; skip bulletins screen
TEXT "^C"
END
; and the automatic logoff on hangup
Cleanup MULTI
TEXT "gyn\r" ; tell Opus we're leaving
WAITFOR 20 "thanks for calling" ; wait for signoff message
END ; before hanging up
#include "avatar"
; add default bindings which have not been overridden
#include "rbcomm"